(Fcall_interactively): Use next_event only if less

than key_count.

diff --git a/src/callint.c b/src/callint.c
index b4b1e198544fa708ce491fa25a2901fc361ce9a0..4552b2274b1618e45e64494d18c41fb10cc9b52e 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -409,7 +409,9 @@ supply if the command inquires which events were used to invoke it.  */)
        {
          Lisp_Object event;
 
-         event = XVECTOR (keys)->contents[next_event];
+         event = (next_event < key_count
+                  ? XVECTOR (keys)->contents[next_event]
+                  : Qnil);
          if (EVENT_HAS_PARAMETERS (event)
              && (event = XCDR (event), CONSP (event))
              && (event = XCAR (event), CONSP (event))